home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 7 / Amoszine 7 (Disk 3 of 3).adf / ARCHIVES / AJC_More_Source.lha / AJC-JDGetdate&time.AMOS / AJC-JDGetdate&time.amosSourceCode
AMOS Source Code  |  1995-06-01  |  314b  |  32 lines
  1. '
  2. ' JD Get Date & Time 
  3. ' By Andrew Campbell 
  4. '
  5.  
  6. _GET_DATE[50,50,0,1]
  7.  
  8. Repeat 
  9.  _UPDATETIME[50,60,0,1]
  10. Until Mouse Key
  11.  
  12. Procedure _GET_DATE[X,Y,C1,C2]
  13.  
  14.  
  15. Ink C1,C2
  16.  
  17. DATE$= Extension_22_004C 
  18.  
  19. Text X,Y,DATE$
  20.  
  21.  
  22. End Proc
  23. Procedure _UPDATETIME[X,Y,C1,C2]
  24.  
  25. Ink C1,C2
  26.  
  27. TIME$= Extension_22_003E 
  28.  
  29. Text X,Y,TIME$
  30.  
  31.  
  32. End Proc